## Loading required package: ggplot2
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
pu <- read.csv2(file = "H:/amnog_datenbank/pu_ranking_2020-10-01.csv", header = T)
g <- plotly::plot_ly(pu, labels = ~`Pharmazeutischer.Unternehmer_cd`, values = ~`Anzahl.Verfahren`, type = 'pie',
textinfo='label+percent',
insidetextorientation='radial')
g <- g %>% add_pie(hole = 0.6)
g <- g %>% layout(
showlegend = F,
# legend = list(x = 500,y = 0.5),
xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)
)
g
# fig <-
# e %>%
# plot_ly(y = therapiegebiet, histfunc='sum', type = "histogram")
#
# fig
USPersonalExpenditure <- data.frame("Categorie"=rownames(USPersonalExpenditure), USPersonalExpenditure)
data <- USPersonalExpenditure[,c('Categorie', 'X1960')]
#
# fig <- plot_ly(data, labels = ~Categorie, values = ~X1960, type = 'pie')
# fig <- fig %>% layout(title = 'United States Personal Expenditures by Categories in 1960',
# xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
# yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
#
# fig
You can also embed plots, for example: